1 Public Class frmAlert
2
3     Private Sub frmAlert_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
4         Me.Hide()
5         frmMain.Show()
6     End Sub
7
8     Private Sub frmAlert_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9
10         Timer1.Start()
11
12     End Sub
13
14     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
15         Beep()
16         Beep()
17
18     End Sub
19 End Class


Gõ tìm kiếm nhanh...